home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ MSO2K Security 1.xpl < prev    next >
Text File  |  1999-09-23  |  2KB  |  68 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Program Options\Office 2000"
  5. "NAME"=Security"
  6. "VERSION"="1.06"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Trust installed files in Word"
  9. "TEXT 2"="Trust installed files in Excel"
  10. "TEXT 3"="Trust installed files in PowerPoint"
  11. "TEXT 4"="Trust installed files in Access"
  12. "DESCRIPTION 1"="This specifies whether or not you want Microsoft Office 2000 programs to trust installed files."  
  13. "DESCRIPTION 2"="Enabling this lowers security somewhat, but disabling it marks installed files as trusted, which will cause Office 2000 programs to treat them as if they are safe, with macros enabled."
  14. "AUTHOR"="Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  17.  
  18.  
  19. sV1="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Word\Security\"
  20. sV2="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Excel\Security\"
  21. sV3="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\PowerPoint\Security\"
  22. sV4="HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\9.0\Access\Security\"
  23. sValName="DontTrustInstalledFiles" 'DW 
  24.  
  25. sPCheck="HKCU\Software\Microsoft\Office\9.0\"
  26. Sub Plugin_Initialize 
  27. if RegPathExists(sPCheck) then
  28.  Call Red(1,sV1)
  29.  Call Red(2,sV2)
  30.  Call Red(3,sV3)
  31.  Call Red(4,sV4)
  32. else
  33.  Disable()
  34. End if
  35. End Sub
  36.  
  37. Sub Red(ITM,VAL)
  38.   i=RegReadValue(VAL & sValName)
  39.   if i<>1 then SetUIElement ITM,true
  40. End Sub
  41.  
  42.  
  43. Sub Plugin_CheckData(ElementIndex)
  44. End Sub
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  Call Wrt(1,sV1)
  48.  Call Wrt(2,sV2)
  49.  Call Wrt(3,sV3)
  50.  Call Wrt(4,sV4)
  51. End Sub
  52.  
  53. Sub Wrt(ITM,VAL)
  54.  b=GetUIElement(ITM)
  55.  if b=true then
  56.     s=RegReadValue(VAL & sValName)
  57.     if IsEmpty(s)=false then Call RegDeleteValue(VAL & sValName)
  58.  else
  59.     Call RegWriteValue(VAL & sValName,1,2)
  60.  end if
  61. end sub
  62.  
  63. Sub Plugin_Terminate 
  64. End Sub
  65.  
  66.  
  67.  
  68.